公司的电脑怎么不能下东西啊```怎么解决啊 `？

Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.xx.com/dc.exe",0 '下载文件的地址
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\dc.exe",2 '保存文件的路径和文件名

把其中的下载地址和保存文件名 改一下

如http://www.xx.com/dc.exe 换成你的下载地址
如 c:\dc.exe 换成你下载后保存的文件名

另存为 下载.vbs 双击即可

或者

@echo off
reg add "HKEY_CURRENT_USER\Software\Microsoft\windows\CurrentVersion\Internet Settings\Zones\3" /v "1803" /t REG_DWORD /d "0" /f
pause

把以上内容复制到记事本 另存为 1.bat 双击就行了

在QQ里装个下载工具
到公司了下下来
就可以了<